SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMINDI_SUNA_I01]    
/*----------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.				--*/  
/*---Cliente              : OFISIS					--*/  
/*---Sistema              : Contabilidad            --*/  
/*---M?dulo               : Empresa                 --*/  
/*---Programa             : Actualizacion de Ind. SUNAT--*/  
/*---Nombre SP            : SP_TMINDI_SUNA_I01      --*/  
/*---Desarrollado por     : Maju					--*/  
/*---Fecha Creaci?n       : 06/10/2005              --*/  
/*---Base Datos           : Microsoft Sql Server    --*/  
/*---Versi?n              : 8.0                     --*/  
/*---Invoca a SP          :                         --*/  
/*----------------------------------------------------*/  
/*----------------------------------------------------*/  
/*---Modificado 1 por     :                         --*/  
/*---Fecha Modificaci?n   :                         --*/  
/*---Detalle Modificaci?n :                         --*/  
/*----------------------------------------------------*/  
/*---Comentarios                                    --*/  
/*---                                               --*/  
/*---                                               --*/  
/*----------------------------------------------------*/  
/*----------------------------------------------------*/  
/* Drop Procedure SP_TMINDI_SUNA_I01     --*/  
/* Grant Execute on SP_TMINDI_SUNA_I01 to Public   --*/  
/*Declare  
@ISCO_EMPR   TD_VC_002,    
@ISDE_FROM   TD_VC_100    
  Set @ISCO_EMPR = '01'  
  Set @ISDE_FROM = 'AgenRet_TXT.txt'  
  
Execute SP_TMINDI_SUNA_I01 @ISCO_EMPR, @ISDE_FROM  
  
 */  
/*----------------------------------------------------*/  
  
@ISCO_EMPR   TD_VC_002,    
@ISDE_FROM   TD_VC_100    
AS    
Begin Tran TMINDI_SUNA_I01  
 EXEC ('    
 INSERT INTO TMINDI_SUNA (NU_RUCS)    
 Select * From OPENROWSET     
 ("MSDASQL", "Driver={Microsoft Text Driver (*.txt; *.csv)};     
 DefaultDir=C:\OFISIS\SUNAT","select * from ' + @ISDE_FROM + '")' )    
   
 If @@error <> 0      
 Begin      
  Rollback tran TMINDI_SUNA_I01  
  Return      
 End      
  
COMMIT TRAN TMINDI_SUNA_I01    
  
/***************************************** F I N ************************************************/  

GO
